home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / oberonv4 / oberon-src / system / mathl.mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1995-07-16  |  1.6 KB  |  33 lines
  1. Syntax10.Scn.Fnt
  2. ParcElems
  3. Alloc
  4. Syntax24b.Scn.Fnt
  5. Syntax10b.Scn.Fnt
  6. Syntax10i.Scn.Fnt
  7. (* AMIGA *)
  8. MODULE MathL;     (*  11-Jun-1994/cn, FPU-Version 15.7.95 Ralf Degner  *)
  9. IMPORT SYSTEM;
  10. CONST
  11.     pi* = 3.141592653589793D0;
  12.     e* = 2.718281828459045D0;
  13. PROCEDURE -ulr 04EH, 05EH, 04EH, 075H; (* ULNK A6    RTS *)
  14. PROCEDURE -fsin 0F2H, 02EH, 054H, 00EH, 000H, 008H; (* FSIN.D (8, A6), FP0 *)
  15. PROCEDURE -fcos 0F2H, 02EH, 054H, 01DH, 000H, 008H; (* FCOS.D (8, A6), FP0 *)
  16. PROCEDURE -fatan 0F2H, 02EH, 054H, 00AH, 000H, 008H; (* FATAN.D (8, A6), FP0 *)
  17. PROCEDURE -fetox 0F2H, 02EH, 054H, 010H, 000H, 008H; (* FETOX.D (8, A6), FP0 *)
  18. PROCEDURE -flogn 0F2H, 02EH, 054H, 014H, 000H, 008H; (* FLOGN.D (8, A6), FP0 *)
  19. PROCEDURE -fsqrt 0F2H, 02EH, 054H, 004H, 000H, 008H; (* FSQRT.D (8, A6), FP0 *)
  20. PROCEDURE sin* (x: LONGREAL): LONGREAL;
  21. BEGIN fsin; ulr END sin;
  22. PROCEDURE cos* (x: LONGREAL): LONGREAL;
  23. BEGIN fcos; ulr END cos;
  24. PROCEDURE arctan* (x: LONGREAL): LONGREAL;
  25. BEGIN fatan; ulr END arctan;
  26. PROCEDURE exp* (x: LONGREAL): LONGREAL;
  27. BEGIN fetox; ulr END exp;
  28. PROCEDURE ln* (x: LONGREAL): LONGREAL;
  29. BEGIN flogn; ulr END ln;
  30. PROCEDURE sqrt* (x: LONGREAL): LONGREAL;
  31. BEGIN fsqrt; ulr END sqrt;
  32. END MathL.
  33.